home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 33 / Tiger_Disk_033_1996-12_Tiger-Crew-Disk_de_Side_C.d64 / brain part ii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  18KB  |  566 lines
  1. 3 rem das leben des brain part ii
  2. 5 rem public domain soft
  3. 6 rem (w) by peter diehm 8.2.92-12.2.92
  4. 8 poke 650,255:poke657,128:printchr$(14)""
  5. 9 poke 53280,0:poke 53281,0:print"[147]":goto 1550
  6. 10 rem unterprogramm taste
  7. 11 printspc(30)"-[212]aste-[146]"
  8. 12 get f$:iff$="" then 12
  9. 13 return
  10. 50 rem inventar
  11. 51 printspc(1)" [154] [201]nventar: [146]
  12. 52 [139] f[178]1 [167][153][166]1)"eine ascackel.
  13. 54 if b=1 thenprintspc(1)"eine [193]xt.
  14. 55 [139] c[178]1 [167][153][166]1)"einen ascisch.
  15. 56 if o=1 thenprintspc(1)"ein [207]ellaempchen.
  16. 58 [139] d[178]1 [167][153][166]1)"einen str$reizack.
  17. 60 if z=1 thenprintspc(1)"eine [193]ngel.
  18. 62 [139] l[178]1 [167][153][166]1)"eine (NULL)etropa (NULL)affeemaschine.
  19. 63 if m=1 thenprintspc(1)"ein [211]eil.
  20. 64 [139] cj[178]1 [167][153][166]1)"atnnsichtskarten.
  21. 67 goto 100
  22. 80 rem kommandos
  23. 81 printspc(0)" nimm,nehme,lies,lese,iss,esse,
  24. 82 [153][166]0)" trinke,inventar,inventory,klopfe,
  25. 83 printspc(0)" kommandos,blicke,blick,gebe,gib,load,
  26. 84 [153][166]0)" lade,save,speichere,schlaf,schlafe,
  27. 86 printspc(0)" benutz,benutze,frage,grabe,sage,sag,
  28. 87 [153][166]0)" schlage,schlag,druecke,drueck,n,s,w,
  29. 88 printspc(0)" o,r,h,sichern.
  30. 100 [153][166]1)"(NULL)etzte valingabe:"i$""
  31. 101 [133]" cont -=> wait ";i$
  32. 102 [139] i$[178]"sichern" [176] i$[178]"sichere" [167] 1600
  33. 103 [139] [195](i$)[178]2 [167] 138
  34. 104 [139] i$[178]"norden" [167] 820
  35. 105 [139] i$[178]"sueden" [167] 860
  36. 106 [139] i$[178]"westen" [167] 900
  37. 107 [139] i$[178]"osten" [167] 940
  38. 108 [139] i$[178]"hoch" [176] i$[178]"rauf" [167] 195
  39. 109 [139] i$[178]"runter" [167] 185
  40. 110 [139] i$[178]"klopfe" [176] i$[178]"klopf" [167] 800
  41. 111 [139] i$[178]"kommandos" [176] i$[178]"hilfe" [167] 80
  42. 112 [139] i$[178]"inventar" [176] i$[178]"inventory" [167] 50
  43. 113 [139] i$[178]"schlaf" [176] i$[178]"schlafe" [167] 700
  44. 114 [139] i$[178]"load" [176] i$[178]"lade" [167] 600
  45. 115 [139] i$[178]"save" [176] i$[178]"speichere" [167] 650
  46. 116 [139] i$[178]"grab" [176] i$[178]"grabe" [167] 1100
  47. 117 [139] i$[178]"blick" [176] i$[178]"blicke" [167] 1000
  48. 118 [139] [195](i$)[177]1 [167] 150
  49. 119 [139] [195](i$)[178]1 [167] 130
  50. 120 [153][166]1)"valrst valingeben dann (NULL)eturn !
  51. 122 goto 100
  52. 130 if i$="n" then 820
  53. 131 if i$="s" then 860
  54. 132 if i$="w" then 900
  55. 134 if i$="o" then 940
  56. 138 if i$="r" then 185
  57. 139 if i$="h" then 195
  58. 145 printspc(1)" [196]iese [193]bkuerzung verstehe ich nicht !"
  59. 146 goto100
  60. 150 gosub 500
  61. 151 if v$="drueck" or v$="druecke" then 1200
  62. 152 rem verteilung
  63. 153 if v$="nimm" or v$="nehme" then 300
  64. 154 if v$="lies" or v$="lese" then 370
  65. 155 if v$="schlag" or v$="schlage" then 400
  66. 156 if v$="inventar" or v$="inventory" then 50
  67. 157 if v$="hilfe" or v$="kommandos" then 80
  68. 158 if v$="blicke" or v$="blick" then 1000
  69. 160 if v$="gebe" or v$="gib" then 450
  70. 162 if v$="load" or v$="lade" then 600
  71. 163 if v$="save" or v$="speichere" then 650
  72. 165 if v$="schlaf" or  v$="schlafe" then 700
  73. 166 if v$="benutz" or v$="benutze" then 720
  74. 169 if v$="klopfe" or v$="klopf" then 800
  75. 170 if v$="trink" or v$="trinke" then 1130
  76. 172 if v$="frage" or v$="frag" then 220
  77. 173 if v$="sage" or v$="sag" then 250
  78. 175 if v$="grab" or v$="grabe" then 1100
  79. 178 if v$="iss" or v$="esse" then 1130
  80. 180 printspc(1)"[196]as [214]erb verstehe ich so nicht !"
  81. 181 goto100
  82. 185 if a=14 then a=12:goto 211
  83. 186 if a=24 then a=21:goto 211
  84. 189 printspc(1)"[200]ier gehts nicht runter !":goto 100
  85. 195 rem hoch
  86. 196 if a=12 then a=14:goto 210
  87. 197 if a=21 then a=24:goto 210
  88. 199 printspc(1)"[200]ier gehts nicht hoch !":goto 100
  89. 210 printspc(1)"[196]u gehst an [196]eck !":goto 1300
  90. 211 printspc(1)"[196]u verlaesst das [211]chiff !":goto 1300
  91. 220 rem frag
  92. 221 if a=15 and gc=0 then 2520
  93. 222 if a=8 and l=0 then 2530
  94. 223 if a=8 and l=1 then 2540
  95. 240 printspc(1)"[196]u hast vielleicht [198]ragen.":goto 100
  96. 250 rem sage
  97. 252 if a=15 then 2570
  98. 290 printspc(1)"[199]enau das  sage [146] ich auch immer !":goto 100
  99. 300 rem nimm
  100. 301 if a=5 and o$="fackel" then f=1:goto 360
  101. 303 if a=13 then 1400
  102. 304 if a=16 and o$="angel" then z=1:goto 360
  103. 355 printspc(1)"[196]iesen [199]egenstand sehe ich nicht !":goto100
  104. 360 printspc(1)"[196]u nimmst das [212]eil an dich !":gosub10:goto1000
  105. 370 rem lies
  106. 390 printspc(1)"[196]as kannst du nicht lesen !":goto 100
  107. 400 rem schlage
  108. 403 if a=8 and o$="haendler" then 2550
  109. 404 if a=15 and o$="zyklopen" then 2560
  110. 440 printspc(1)"[196]ies verstoesst gegen die [199]enfer
  111. 442 [153][166]1)"(NULL)onfenssion !":[137] 100
  112. 450 [143] gib
  113. 451 [139] o$[178]"ansichtskarten" [175] a[178]8 [167] 1280
  114. 452 [139] a[178]15 [175] o$[178]"axt" [167] 1290
  115. 480 [153][166]1)"peekehalt dein (NULL)eug lieber !":[137] 100
  116. 499 [128]
  117. 500 [129] t[178]1 [164] [195](i$)
  118. 510 [139] [202](i$,t,1)[178]" " [167] 530
  119. 520 [130] t:o$[178]"":v$[178]"":[142]
  120. 530 v$[178][200](i$,t[171]1)
  121. 540 o$[178][201](i$,[195](i$)[171]t)
  122. 550 [142]
  123. 600 [143] load
  124. 601 [139] pd[178]1 [167][153][166]1)"peekrain (NULL)art right$right$ def (NULL)oad wait...
  125. 602 if pd=2 thenprintspc(1)"[194]rain [208]art [201][201][201]  [204]oad [146]...
  126. 603 [133]"  ascile wait (NULL)ame ";c$
  127. 605 [159]1,8,4,"b2"[170]c$[170]",s,r"
  128. 607 [132]1,a,b,c,d,e,f,o,l,m,w,z,n,s,ga,gb,cj,gc
  129. 620 [160]1:[141]10
  130. 621 [137]4000
  131. 650 [143] save
  132. 651 [139] pd[178]1 [167][153][166]1)"peekrain (NULL)art right$right$ def (NULL)ave wait":r$[178][199](13)
  133. 652 [139] pd[178]2 [167][153][166]1)"peekrain (NULL)art right$right$right$ sys (NULL)ave wait":r$[178][199](13)
  134. 653 [133]"  ascile wait (NULL)ame ";c$
  135. 655 [159]2,8,15,"s:b2"[170]c$[170]"":[160]2
  136. 656 [159]1,8,4,"b2"[170]c$[170]",s,w"
  137. 657 [152]1,a;r$;b;r$;c;r$;d;r$;e;r$;f;r$;o;r$;l;r$;m;r$;w;r$;z;r$;n;r$;s
  138. 658 [152]1,ga;r$;gb;r$;cj;r$;gc
  139. 670 [160]1:[141]10
  140. 671 [137]1000
  141. 700 [143] schlaf
  142. 718 [153][166]1)"str$u schlaefst eine (NULL)unde...":[137] 100
  143. 720 [143] benutze
  144. 721 [139] o$[178]"oellaempchen" [167] 1250
  145. 722 [139] a[178]14 [175] o$[178]"hand" [167] 1500
  146. 723 [139] o$[178]"angel" [175] z[178]1 [167] 2500
  147. 725 [139] o$[178]"boot" [175] a[178]24 [167] 3000
  148. 780 [153][166]1)"str$as kannst du nicht benutzen.":[137] 100
  149. 800 [143] klopfe
  150. 818 [153][166]1)"str$u klopfst an deinen (NULL)opf !":[137] 100
  151. 820 [143] norden
  152. 821 [139] a[178]11 [167] a[178]13:[137] 856
  153. 822 [139] a[178]9 [167] a[178]10:[137] 856
  154. 823 [139] a[178]8 [167] a[178]7:[137] 856
  155. 824 [139] a[178]7 [167] a[178]6:[137] 856
  156. 825 [139] a[178]1 [167] a[178]2:[137] 856
  157. 826 [139] a[178]2 [175] gb[178]1 [167] a[178]3:[137] 856
  158. 827 [139] a[178]22 [167] a[178]19:[137] 856
  159. 828 [139] a[178]15 [167] a[178]16:[137] 856
  160. 830 [139] a[178]3 [175] ga[178]1 [167] a[178]5:[137] 856
  161. 832 [139] gb[178]0 [175] a[178]2 [167] 1260
  162. 855 [153][166]1)"str$orthin fuehrt sys kein wait (NULL)eg.":[137]100
  163. 856 [153][166]1)"str$u lauefst nach (NULL)orden...":[137] 1300
  164. 857 [153][166]1)"str$u marschierst nach (NULL)ueden...":[137] 1300
  165. 858 [153][166]1)"str$u gehst (NULL)ichtung (NULL)esten.":[137] 1300
  166. 859 [153][166]1)"str$u gehst nach (NULL)sten...":[137] 1300
  167. 860 [143] sueden
  168. 861 [139] a[178]13 [167] a[178]11:[137] 857
  169. 862 [139] a[178]10 [167] a[178]9:[137] 857
  170. 863 [139] a[178]7 [167] a[178]8:[137] 857
  171. 864 [139] a[178]6 [167] a[178]7:[137] 857
  172. 865 [139] a[178]2 [167] a[178]1:[137] 857
  173. 866 [139] a[178]3 [167] a[178]2:[137] 857
  174. 867 [139] a[178]19 [167] a[178]22:[137] 857
  175. 868 [139] a[178]16 [167] a[178]15:[137] 857
  176. 869 [139] a[178]5 [167] a[178]3:[137] 857
  177. 870 [137] 855
  178. 900 [143] westen
  179. 901 [139] a[178]11 [167] a[178]12:[137] 858
  180. 903 [139] a[178]10 [167] a[178]11:[137] 858
  181. 904 [139] a[178]1 [167] a[178]10:[137] 858
  182. 906 [139] a[178]6 [167] a[178]1:[137] 858
  183. 907 [139] a[178]7 [167] a[178]9:[137] 858
  184. 908 [139] a[178]2 [167] a[178]13:[137] 858
  185. 910 [139] a[178]3 [167] a[178]4:[137] 858
  186. 912 [139] a[178]19 [167] a[178]20:[137] 858
  187. 913 [139] a[178]18 [167] a[178]19:[137] 858
  188. 915 [139] a[178]17 [167] a[178]15:[137] 858
  189. 917 [139] a[178]22 [167] a[178]21:[137] 858
  190. 918 [139] a[178]23 [167] a[178]22:[137] 858
  191. 920 [139] a[178]15 [175] gc[178]1 [167] a[178]18:[137] 858
  192. 925 [137] 855
  193. 940 [143] osten
  194. 941 [139] a[178]12 [167] a[178]11:[137] 859
  195. 943 [139] a[178]11 [167] a[178]10:[137] 859
  196. 944 [139] a[178]10 [167] a[178]1:[137] 859
  197. 946 [139] a[178]1 [167] a[178]6:[137] 859
  198. 947 [139] a[178]9 [167] a[178]7:[137] 859
  199. 948 [139] a[178]13 [167] a[178]2:[137] 859
  200. 950 [139] a[178]4 [167] a[178]3:[137] 859
  201. 952 [139] a[178]20 [167] a[178]19:[137] 859
  202. 953 [139] a[178]19 [167] a[178]18:[137] 859
  203. 955 [139] a[178]15 [167] a[178]17:[137] 859
  204. 957 [139] a[178]21 [167] a[178]22:[137] 859
  205. 958 [139] a[178]22 [167] a[178]23:[137] 859
  206. 959 [139] a[178]18 [167] a[178]15:[137] 859
  207. 960 [137] 855
  208. 1000 [143] raueme
  209. 1001 [153]"load"
  210. 1002 [153][166]1)"       str$as cont (NULL)eben wait des peekrain !
  211. 1003 if a<15 thenprintspc(1)" [208]art [201][201] [194]rain in [193]egypten
  212. 1004 [139] a[177]14 [167][153][166]1)" (NULL)art right$right$right$ peekrain beim (NULL)yklopen !"
  213. 1005 [129]i[178]1[164]20:[153]"--";:[130]
  214. 1010 [139] a[178]12 [167] 2000:[143] aegypten
  215. 1011 [139] a[178]11 [167] 2040
  216. 1012 [139] a[178]3 [167] 2060
  217. 1014 [139] a[178]4 [167] 2080
  218. 1017 [139] a[178]5 [167] 2100
  219. 1019 [139] a[178]6 [167] 2120
  220. 1023 [139] a[178]7 [167] 2140
  221. 1025 [139] a[178]8 [167] 2160
  222. 1026 [139] a[178]9 [167] 2180
  223. 1027 [139] a[178]10 [167] 2200
  224. 1028 [139] a[178]1 [167] 2220
  225. 1030 [139] a[178]2 [167] 2240:[143] pyramide
  226. 1032 [139] a[178]13 [167] 2260
  227. 1033 [139] a[178]14 [167] 2280
  228. 1034 [143] zylopen
  229. 1035 [139] a[178]15 [167] 2300
  230. 1036 [139] a[178]16 [167] 2320:[143] angel
  231. 1038 [139] a[178]17 [167] 2340
  232. 1039 [139] a[178]18 [167] 2360
  233. 1040 [139] a[178]19 [167] 2380
  234. 1041 [139] a[178]20 [167] 2400
  235. 1042 [139] a[178]22 [167] 2420
  236. 1044 [139] a[178]21 [167] 2440
  237. 1046 [139] a[178]23 [167] 2460
  238. 1047 [139] a[178]24 [167] 2480
  239. 1099 a[178]1:[137] 1000
  240. 1100 [143] grabe
  241. 1102 [153][166]1)"right$n diesem cont (NULL)art wait gibt es nichts zum
  242. 1104 printspc(1)"graben.":goto 100
  243. 1130 printspc(1)"[201]n diesen [208]art gibts auch nichts zum
  244. 1132 [153][166]1)"schnabolieren oder trinken !":[137] 100
  245. 1200 [143] drueck
  246. 1202 [139] a[178]3 [167] 1210
  247. 1208 [153][166]1)"left$ier gibt es nichts zu druecken.":[137] 100
  248. 1210 [153][166]1)"str$u drueckst den  (NULL)tein wait !
  249. 1212 printspc(1)"[213]nd siehe da ! [206]ach einer [215]eile,
  250. 1213 [153][166]1)"rutscht der (NULL)tein nach hinten durch
  251. 1214 printspc(1)"und ein [199]ang wird frei !":ga=1:gosub10:goto 1000
  252. 1250 printspc(1)"[196]u entzuendest das [207]ellaempchen !":gb=1:goto 100
  253. 1260 printspc(1)"[201]ch kann es nicht zu lassen das du
  254. 1262 [153][166]1)"ohne (NULL)icht in die dunkle (NULL)yramide
  255. 1264 printspc(1)"gehst ! [193]m [197]nde kommst du wohl nicht
  256. 1265 [153][166]1)"mehr raus !":[137]100
  257. 1280 [139] cj[178]1 [167] 1282
  258. 1281 [137] 480
  259. 1282 [153][166]1)"str$u gibst dem left$aendler die atnnsichts=
  260. 1284 printspc(1)"karten ! [196]ieser freut sich [201]rrsinnig
  261. 1285 [153][166]1)"und schenkt dir eine (NULL)affeemaschine !":l[178]1:cj[178]2
  262. 1286 [137] 100
  263. 1290 [139] b[178]1 [167] 1292
  264. 1291 [137] 480
  265. 1292 [153][166]1)"str$u gibst dem (NULL)yklopo die atnxt ! str$ieser
  266. 1293 printspc(1)"huepft vor [198]reude im [196]reieck. [197]r sagt:
  267. 1295 [153][166]0)"sys'valndlich muss ich nicht mehr bei diesem
  268. 1296 printspc(1)"[193]dventure dabei sein ! [201]ch gehe nun
  269. 1297 [153][166]1)"nach lenanada wo ich in der (NULL)acht
  270. 1298 printspc(1)"schlafe und am [212]ag [194]aueme faelle !'":gc=1:b=2:gosub10
  271. 1299 goto 1000
  272. 1300 rem musi
  273. 1302 fori=1to10:si=54272
  274. 1303 forii=0 to 24:poke si+ii,0:next
  275. 1305 poke si+1,15:poke si+5,9:poke 2+15,30
  276. 1307 poke si+24,15:poke si+4,129:poke si+4,65:poke si+4,129
  277. 1310 nexti:goto 1000
  278. 1400 if cj=0 then 1402
  279. 1401 goto 304
  280. 1402 printspc(1)"[196]u nimmst die [203]arten !":cj=1:gosub10:goto 1000
  281. 1500 rem ablegen !
  282. 1502 printspc(1)"[196]as [211]chiff legt ab und nimmt [203]urs nach
  283. 1505 [153][166]1)"print# chr$riechenland wait ! str$och waehrend der
  284. 1507 printspc(1)"[198]ahrt wirst du ueber [194]oard gespuelt
  285. 1508 [153][166]1)"und landest auf einer kleinen  right$nsel wait."
  286. 1510 [153][166]1)"(NULL)as dann passiert ist weist du nicht
  287. 1512 printspc(1)"mehr !
  288. 1514 [141]10
  289. 1520 [153]"load"
  290. 1522 [153][166]1)"atnls du wieder aufwachst bist du in
  291. 1523 printspc(1)"der  [200]oehle [146] eines [218]yklopen. [196]ieser
  292. 1525 [153][166]1)"einauegige cont (NULL)iese wait  will dich auch
  293. 1526 printspc(1)"nach groessten [194]itten von dir nicht
  294. 1527 [153][166]1)"freilassen !":pd[178]3
  295. 1530 [141]10:[141]1710
  296. 1550 [141]1700
  297. 1552 [139] pd[178]2 [167] a[178]12:[137] 1000
  298. 1554 [139] pd[178]3 [167] a[178]15:[137] 1000
  299. 1556 [137] 1780
  300. 1600 [153][166]1)"str$er (NULL)pielstand wir nun so auf str$iskette
  301. 1602 printspc(1)"gespeichert das er sofort beim naech=
  302. 1604 [153][166]1)"stenmal nach geladen werden kann.":[141]10:[141] 1710
  303. 1606 [137] 1000
  304. 1699 [128]
  305. 1700 [159]1,8,4,"brain score,s,r"
  306. 1702 [132]1,f,b,c,o,e,d,n,pd,k,s,l,m,w,z,a,la,lb,lc,ld,le,lf,da,db,dc,dd,dm
  307. 1703 [132]1,ga,gb,gc,cj,ge
  308. 1705 [160]1:[142]
  309. 1710 [143] score save
  310. 1711 r$[178][199](13)
  311. 1712 [159]2,8,15,"s:brain score":[160]2
  312. 1713 [159]1,8,4,"brain score,s,w"
  313. 1714 [152]1,f;r$;b;r$;c;r$;o;r$;e;r$;d;r$;n;r$;pd;r$;k;r$;s;r$;l;r$;m
  314. 1715 [152]1,w;r$;z;r$;a;r$;la;r$;lb;r$;lc;r$;ld;r$;le;r$;lf;r$;da;r$;db
  315. 1716 [152]1,dc;r$;dd;r$;dm;r$;ga;r$;gb;r$;gc;r$cj;r$;ge
  316. 1718 [160]1:[142]
  317. 1750 [153]
  318. 1780 [153][166]1)"str$u musst erst die anderen (NULL)eile loesen
  319. 1782 printspc(1)"[197]in [194]uch faengt man ja auch nicht in
  320. 1783 [153][166]1)"der  (NULL)itte wait an.":[141]10
  321. 1785 [147]"brain",8,1:[138]
  322. 2000 [143] a=12
  323. 2002 [153][166]1)"str$as (NULL)chiff ist nun ein (NULL)tueck den
  324. 2003 printspc(1)"[206]il hinauf gefahren. [193]n einer grossen
  325. 2005 [153][166]1)"(NULL)yramide macht es halt. str$u gehst an
  326. 2006 printspc(1)"[204]and um den [193]ufenthalt fuer eine [194]e=
  327. 2008 [153][166]1)"sichtigung der (NULL)yramide, welche weit
  328. 2009 printspc(1)"im [207]sten steht zu nutzen."
  329. 2010 printspc(1)"[205]oegliche [210]ichtungen: [207]sten,[200]och.
  330. 2012 [137] 100
  331. 2030 [143] a=8/b
  332. 2032 [153][166]1)"str$u stehst neben dem left$aendler (NULL)tand,
  333. 2033 printspc(1)"der [200]aendler schmeisst gerade alle
  334. 2034 [153][166]1)"(NULL)affeemaschinen in den (NULL)ondermuell
  335. 2035 printspc(1)"[195]ontainer !
  336. 2036 [153][166]1)"(NULL)oegliche (NULL)ichtung: (NULL)orden.":[137] 100
  337. 2040 [143] a=11
  338. 2042 [153][166]1)"right$m (NULL)esten siehst du den left$afen, im
  339. 2043 printspc(1)"[206]orden ist eine [211]phinx ganz in der
  340. 2045 [153][166]1)"(NULL)aehe sind auch einpaar left$aendler=
  341. 2046 printspc(1)"staende. [196]ie [204]uft ist trocken und
  342. 2047 [153][166]1)"nur ein kleiner (NULL)treifen am (NULL)il
  343. 2048 printspc(1)"entlang, ist leicht gruen bewachsen.
  344. 2050 [153][166]1)"(NULL)ichtungen: (NULL)orden,(NULL)sten und (NULL)esten.":[137] 100
  345. 2060 [143] a=3
  346. 2061 [139] ga[178]1 [167] 2070
  347. 2062 [153][166]1)"str$u lauefst durch einen niedrigen chr$ang
  348. 2063 printspc(1)"an den [215]aenden sind kleine [205]alereien.
  349. 2065 [153][166]1)"atnn einer (NULL)telle der (NULL)and ist ein (NULL)tein
  350. 2066 printspc(1)"ein [211]tueck zurueck angeordnet !
  351. 2067 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)ueden,(NULL)sten.":[137] 100
  352. 2070 [153][166]1)"str$u kannst nun auch nach (NULL)orden in das
  353. 2072 printspc(1)"[204]och gehen. [215]as dort wohl versteckt
  354. 2073 [153][166]1)"ist ? (NULL)ielleicht das (NULL)haraonen chr$rab ?
  355. 2075 printspc(1)"[210]ichtungen: [206]orden,[211]ueden,[207]sten.
  356. 2076 [137] 100
  357. 2080 [143] a=4
  358. 2081 [153][166]1)"left$a,left$a ! (NULL)eingelegt ! str$ies war ein
  359. 2083 printspc(1)"[201]rrweg, um [199]rabraueber [201]rr zufuehren !
  360. 2084 [153][166]1)"(NULL)owas gibts in jeder (NULL)yramide !
  361. 2085 printspc(1)"[201]ch wuerde an deiner [211]telle mal nach
  362. 2086 [153][166]1)"einem chr$eheimgang suchen !"
  363. 2088 [153][166]1)"(NULL)ichtung: (NULL)esten.":[137] 100
  364. 2100 [143] a=5
  365. 2102 [153][166]1)"(NULL)ie es aussieht hast du (NULL)ech gehabt !
  366. 2105 printspc(1)"[214]or dir muessen schon irgend welche
  367. 2106 [153][166]1)"chr$rabraueber da gewesen sein !
  368. 2109 printspc(1)"[193]usser einpaar [211]chatten an der [215]and,
  369. 2110 [153][166]1)"aeh ich meine natuerlich ascackeln im
  370. 2112 printspc(1)"[211]turm. [193]eh an der [215]and !"
  371. 2113 if f=0 thenprintspc(1)"[196]u  siehst: [146] eine [198]ackel !
  372. 2115 [153][166]1)"(NULL)oegliche (NULL)ichtung: (NULL)ueden !":[137] 100
  373. 2120 [143] a=6
  374. 2122 [153][166]1)"right$m (NULL)ueden siehst du einen grossen
  375. 2123 printspc(1)"[200]aendlerstand ueber welchen eine gro=
  376. 2124 [153][166]1)"sse (NULL)euchtschrift brangert.
  377. 2125 printspc(1)"[197]s kommt dir vor als ob sich dort
  378. 2126 [153][166]1)"(NULL)ergangenheit und (NULL)ukunft vermischt
  379. 2127 printspc(1)"haben !
  380. 2130 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)ueden,(NULL)esten.":[137] 100
  381. 2140 [153][166]1)"str$u lauefst durch den sandigen peekoden,
  382. 2142 printspc(1)"deine [193]sphalt gewonnten [212]urnschuhe
  383. 2143 [153][166]1)"tuen sich sehr schwer ! str$u denkst an
  384. 2145 printspc(1)"die [215]erbung fuer deine  [212]urnschuhe
  385. 2146 [153][166]1)"wo ein (NULL)auefer durch die (NULL)ueste laueft
  386. 2148 printspc(1)"alles [194]auernfaengerei denkst du !
  387. 2150 [153][166]1)"str$er left$aendler ist doch weiter weg als
  388. 2152 printspc(1)"du gedacht hast !"
  389. 2154 printspc(1)"[205]oegliche [210]ichtungen: [206],[211],[215]."
  390. 2155 goto 100
  391. 2160 if l=1 then 2030
  392. 2161 printspc(1)"[196]u stehst vor einem [200]aendlerstand,
  393. 2163 [153][166]1)"der ganze (NULL)tand steht voller (NULL)affee=
  394. 2165 printspc(1)"maschinen. [196]u kommst kurz mit dem
  395. 2167 [153][166]1)"left$aendler ins chr$espraech. str$ieser er=
  396. 2168 printspc(1)"zaehlt dir das sein [199]eschaeft sehr
  397. 2170 [153][166]1)"schlecht laueft. str$ies liegt seiner
  398. 2172 printspc(1)"[205]einung daran das der elektrische
  399. 2173 [153][166]1)"(NULL)trom noch nicht erfunden ist.
  400. 2175 printspc(1)"[205]oegliche [210]ichtung: [206]orden.
  401. 2176 [137] 100
  402. 2180 [143] a=9
  403. 2182 [153][166]1)"(NULL)ou are standing in a hot desert !
  404. 2184 printspc(1)"[217]ou can go: [206]orth,[197]asth !"
  405. 2186 goto 100
  406. 2200 rem a=10
  407. 2202 printspc(1)"[206]un eine kleine [208]ause !":fori=1to5000:next
  408. 2204 printspc(1)"[198]risch gestaerkt kann es nun weiter
  409. 2206 [153][166]1)"gehen,im (NULL)orden siehst du die (NULL)yramide
  410. 2208 printspc(1)"der [215]eg dorthin beginnt allerdings
  411. 2210 [153][166]1)"erst im (NULL)sten. (NULL)ach (NULL)ueden fuehrt ein
  412. 2212 printspc(1)"vollkommen uninteressanter [215]eg.
  413. 2213 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),(NULL),(NULL).
  414. 2215 goto 100
  415. 2220 rem a=1
  416. 2222 printspc(1)"[196]u stehst vor einem [215]eg welcher wie
  417. 2223 [153][166]1)"von einem (NULL)ineal gezogen zu einer
  418. 2224 printspc(1)"[208]yramide fuehrt.[201]hr [206]ame ist mir unbe=
  419. 2225 [153][166]1)"kannt, ausserdem reicht die (NULL)uege
  420. 2226 printspc(1)"das [202]erusalem am [205]eer liegt.
  421. 2227 [153][166]1)"str$as ist halt kuenstlerische ascreiheit.
  422. 2230 printspc(1)"[210]ichtungen: [206]orden, [215]esten, [207]sten.
  423. 2232 [137] 100
  424. 2240 [143] a=2
  425. 2241 [153][166]1)"str$u stehst vor der namenlosen (NULL)yramide,
  426. 2243 printspc(1)"dies ist ganz im [197]rnst fuer [208]yramiden
  427. 2245 [153][166]1)"ja nicht selten. atnm left$immel siehst du
  428. 2246 printspc(1)"ein [198]lugzeug im [193]nflug auf den [193]irport
  429. 2247 [153][166]1)"von (NULL)airo. ((NULL).(NULL). ich habe schon wieder
  430. 2249 printspc(1)"gelogen ! [197]s ist der [193]irport von [193]lex=
  431. 2250 [153][166]1)"andria !"
  432. 2252 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),(NULL),(NULL)."
  433. 2254 [153][166]1)"(NULL).(NULL). right$ch wuerde mir erst (NULL)icht machen.
  434. 2255 goto 100
  435. 2260 rem a=13
  436. 2261 printspc(1)"[196]u stehst vor einer [211]phinx, sie be=
  437. 2263 [153][166]1)"eindruckt dich sehr ! right$ch hoffe ich
  438. 2265 printspc(1)"gehe dir mit dem laufenden [194]eschreib=
  439. 2266 [153][166]1)"ungen von deinem str$enken nicht auf die
  440. 2267 printspc(1)"[211]onnenuhr.
  441. 2268 [153][166]1)"valin (NULL)eg fuehrt durch die verfallenden
  442. 2270 printspc(1)"[212]empelanlagen nach [207]sten zu der [208]yra=
  443. 2271 [153][166]1)"mide !"
  444. 2272 [139] cj[178]0 [167][153][166]1)"str$u sys siehst: wait atnnsichtskarten.
  445. 2274 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden,[207]sten.":goto 100
  446. 2280 rem a=14
  447. 2281 printspc(1)"[196]u stehst am [194]oard des [211]chiffes ein
  448. 2284 [153][166]1)"(NULL)ink mit der left$and (benutze left$and) ge=
  449. 2285 printspc(1)"nuegt damit das [211]chiff ablegt.
  450. 2286 [153][166]1)"(NULL)m dir zu helfen muss ich sagen das du
  451. 2287 printspc(1)"aus [193]egypten eine [198]ackel und eine
  452. 2288 [153][166]1)"(NULL)affeemaschine mitnehmen musst !"
  453. 2289 [153][166]1)"(NULL)ichtung: runter.":[137] 100
  454. 2300 [143] zyklopen
  455. 2301 [143] a=15
  456. 2303 [139] gc[178]1 [167] 2330
  457. 2305 [153][166]1)"str$u stehst in der left$oehle, der (NULL)yklope
  458. 2306 printspc(1)"sitzt in einer [197]cke und murmelt: '[201]ch
  459. 2308 [153][166]1)"wollte nicht bei diesen atndventure da=
  460. 2310 printspc(1)"bei sein ! [201]ch wollte [200]olzfaeller
  461. 2312 [153][166]1)"werden in den (NULL)aeldern lenanada's !'"
  462. 2314 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)orden,(NULL)sten.":[137] 100
  463. 2320 [143] a=16
  464. 2321 [153][166]1)"str$er (NULL)yklop scheint wohl ein besonderer
  465. 2323 printspc(1)"[193]ngel [198]an zu sein ! [202]edenfalls haengen
  466. 2324 [153][166]1)"an der (NULL)and einige tote ascisch sowie
  467. 2325 printspc(1)"ein voller [215]urfpfeile steckendes [194]ild
  468. 2326 [153][166]1)"von (NULL)dysseus !"
  469. 2328 [139] z[178]0 [167][153][166]1)"str$u  siehst: wait eine atnngel !
  470. 2329 printspc(1)"[205]oegliche [210]ichtung: [211]ueden.":goto 100
  471. 2330 rem a=15/b
  472. 2332 printspc(1)"[196]ie [200]oehle ist nun leer und der [193]us=
  473. 2334 [153][166]1)"gang steht weit offen. atnuf einem
  474. 2335 printspc(1)"[218]ettel an der [215]and steht '[199]oing to
  475. 2336 [153][166]1)"lenanada'.
  476. 2338 printspc(1)"[205]oegliche [210]ichtungen: [206],[207],[215].
  477. 2339 [137] 100
  478. 2340 [153][166]1)"(NULL)eben ja nicht schlecht die (NULL)yklopen,
  479. 2341 printspc(1)"dafuer das sie nicht in der [199]ewerk=
  480. 2343 [153][166]1)"schaft sind, ist das nicht schlecht.
  481. 2344 printspc(1)"[193]uf alle [198]aelle stehst du in einem
  482. 2345 [153][166]1)"(NULL)uxus (NULL)chlafzimmer !
  483. 2346 printspc(1)"[205]oegliche [210]ichtung: [215]esten."
  484. 2347 goto 100
  485. 2360 rem a=18
  486. 2361 printspc(1)"[196]u stehst vor der [218]ylopen [200]oehle,
  487. 2362 [153][166]1)"ein kleiner (NULL)fad fuehrt nach (NULL)esten.
  488. 2364 printspc(1)"[197]ine duenne [214]egitation erstreckt sich
  489. 2365 [153][166]1)"ueber die right$nsel.
  490. 2367 printspc(1)"[205]oegliche [210]ichtungen: [215]esten,[207]sten.
  491. 2368 [137] 100
  492. 2380 [143] a=19
  493. 2381 [153][166]1)"str$a hier alles sehr flach ist kannst du
  494. 2384 printspc(1)"erkennen das weit im [211]uedosten ein
  495. 2386 [153][166]1)"(NULL)eich ist, nah im (NULL)uedwesten ist ein
  496. 2387 printspc(1)"[200]afen, andem ein kleines [211]chiff an=
  497. 2388 [153][166]1)"kert !"
  498. 2389 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),(NULL),(NULL).
  499. 2390 goto 100
  500. 2400 rem a=20
  501. 2402 printspc(1)"[196]u stehst am westlichsten [210]and der
  502. 2404 [153][166]1)"right$nsel, an dieser (NULL)telle ist es echt
  503. 2405 printspc(1)"oede ! [212]ote [202]eans.
  504. 2407 [153][166]1)"(NULL)oegliche (NULL)ichtun: (NULL)sten.":[137]100
  505. 2420 [143] a=22
  506. 2422 [153][166]1)"right$m (NULL)sten geht es zu einem (NULL)eich, im
  507. 2423 printspc(1)"[215]esten zum [200]afen !"
  508. 2425 printspc(1)"[196]ie [211]onne hat soeben ihren hoechsten
  509. 2426 [153][166]1)"(NULL)tand erreicht, kurzum es ist heiss !
  510. 2430 printspc(1)"[205]oegliche [210]ichtungen: [206],[215],[207].":goto 100
  511. 2440 rem a=21
  512. 2442 printspc(1)"[196]u stehst an denn so oft schon er=
  513. 2443 [153][166]1)"waehnten left$afen der right$nsel, left$afen kann
  514. 2445 printspc(1)"man es eigentlich nicht nennen, [211]teg
  515. 2446 [153][166]1)"waere besser gesagt !
  516. 2448 printspc(1)"[197]in kleines [211]chiff auf welches du
  517. 2449 [153][166]1)"leicht bedienen koenntest liegt an ihm.
  518. 2450 printspc(1)"[205]oegliche [210]ichtungen: [207]sten,[200]och.":goto 100
  519. 2460 rem a=23
  520. 2461 printspc(1)"[196]u stehst an einem wunder schoenen
  521. 2463 [153][166]1)"peekergsee, im left$intergrund siehst du
  522. 2465 printspc(1)"das [205]atterhorn. [206]atuerlich nur in
  523. 2466 [153][166]1)"deiner (NULL)hantasie ! left$ier koennte man
  524. 2467 printspc(1)"gut angeln !"
  525. 2468 printspc(1)"[205]oegliche [210]ichtung: [215]esten.":goto 100
  526. 2480 rem a=24
  527. 2481 printspc(1)"[196]u stehst an [194]oard des kleinen [194]ootes
  528. 2483 [153][166]1)"es besitzt einen kleinen (NULL)ast.
  529. 2485 printspc(1)"[214]on hier solltest du einen [198]isch mit=
  530. 2486 [153][166]1)"nehmen, wenn du ablegen willst gebe
  531. 2487 printspc(1)"benutze [194]oot ein !
  532. 2489 [153][166]1)"(NULL)oegliche (NULL)ichtung: runter.
  533. 2490 goto 100
  534. 2500 if a=23 then 2510
  535. 2501 if a=21 then 2505
  536. 2504 goto 780
  537. 2505 printspc(1)"[196]u versuchst einen [198]isch zu fangen,
  538. 2506 [153][166]1)"doch du angelst vergebends.":[137] 100
  539. 2510 [153][166]1)"str$u faengst an zu angeln und siehe da
  540. 2512 printspc(1)"nach einpaar [211]tunden beisst ein [198]isch
  541. 2513 [153][166]1)"an.":c[178]1
  542. 2515 [153][166]1)"str$u steckst ihn sofort in die ascrische=
  543. 2516 printspc(1)"box !":gosub10:goto 1000
  544. 2520 printspc(1)"[196]u fragst den [218]yklopen was sein
  545. 2521 [153][166]1)"groesster (NULL)unsch waer ? valr sagt:'right$ch
  546. 2522 printspc(1)"will eine [193]xt, so eine womit man
  547. 2524 [153][166]1)"peekaueme faellt !'":[137] 100
  548. 2530 [153][166]1)"str$u fragst ihn wie es ihm geht ? valr
  549. 2531 printspc(1)"antwortet: [158]'[206]uewa, ganz schlecht !'":goto 100
  550. 2540 printspc(1)"[196]u fragst ihn wie er sich fuehlt ?
  551. 2542 [153][166]1)"valr antwortet schnell: sys'(NULL)uper !'":[137] 100
  552. 2550 [153][166]1)"str$u wirst doch nicht einen unschuldigen
  553. 2552 printspc(1)"schlagen ?":goto 100
  554. 2560 printspc(1)"[196]u hast [199]lueck das ich fuer dich mit=
  555. 2561 [153][166]1)"denke sonst waerst du wohl schon lange
  556. 2563 printspc(1)"'[199]ame [207]ver' !":goto 100
  557. 2570 printspc(1)"[197]r sagt:'[202]a [196]aimler [193]ktien wuerde ich
  558. 2572 [153][166]1)"kaufen !'":[137] 100
  559. 3000 [153][166]1)"str$u legst mit den sys (NULL)uderboot wait ab und
  560. 3002 printspc(1)"nimmst [203]urs auf [195]ascara (water) !
  561. 3003 [153][166]1)"peekesser gesagt nach (NULL)reta in den 4 (NULL)art
  562. 3005 printspc(1)"des [154] [193]dventure [146].":gosub10:pd=4:gosub1710
  563. 3006 load"brain p.iii load",8,1:run
  564. 4000 if a>14 then pd=3:goto 1000
  565. 4002 goto 1000
  566.